Mi Zhang, Peng Liu, Yuanming Leng, Qiannan Shen
GGally::ggpairs(strawb1, columns=c(3,6), aes(color=strawb1[,3], alpha = 0.5), lower=list(combo=wrap("facethist",binwidth=0.5)))
plot1("MEASURED IN LB")
p4 <- plot4("MEASURED IN LB","Bee.Toxins","CALIFORNIA") ggplotly(p4, tooltip="y")
p5 <- plot5("MEASURED IN LB","Bee.Toxins","CALIFORNIA","slight") ggplotly(p5, tooltip="y")